|
|
Artwork Categories
|
|
|
|
<%
connectme="DSN=Drawings"
sqltemp="select * from people WHERE main=2 order by drawing_ID"
mypage=request("whichpage")
If mypage="" then
mypage=1
end if
mypagesize=request("pagesize")
If mypagesize="" then
mypagesize=20
end if
mySQL=request("SQLquery")
IF mySQL="" THEN
mySQL=SQLtemp
END IF
set rstemp=Server.CreateObject("ADODB.Recordset")
rstemp.cursorlocation=aduseclient
rstemp.cachesize=5
rstemp.open mySQL,connectme
rstemp.movefirst
rstemp.pagesize=mypagesize
maxpages=cint(rstemp.pagecount)
maxrecs=cint(rstemp.pagesize)
rstemp.absolutepage=mypage
countme = rstemp.recordcount
howmanyrecs=0
howmanyfields=rstemp.fields.count -1
holder = cint(maxpages)
counterstart = 1
counterend = maxpages
' Now loop through the data
%>
Page <%= mypage & " of " & maxpages %>
|
<%
' close, destroy
rstemp.close
set rstemp=nothing
' Now make the page _ of _ hyperlinks
Call PageNavBar
sub PageNavBar()
pad=""
scriptname=request.servervariables("script_name")
response.write ""
response.write ""
response.write ""
session("temphold") = cstr(mypage)
if mypage > 1 then %>
Back
<%
end if
Response.Write "["
for counter=counterstart to counterend
if cstr(counter) = session("temphold") then %>
<%= pad & counter %>
<% else %>
<%= pad & counter %>
<%
end if
response.write ref
if counter <> counterend then response.write " "
next
Response.Write "]"
response.write ""
if mypage <> holder then
if cint(mypage) >= cint(holder) then
response.write ""
mypage = holder
else %>
Next
<%
end if
end if
response.write " | "
response.write " "
response.write " "
end sub
%>
|
|
|